Câu 1 khai báo dãy a gồm n(n>=300) số nguyên dương Câu 2 khai báo dãy a gồm n(n>=300) số nguyên dương mỗi số có giá trị nhỏ hơn 500 a tạo giá trị mảng bằng hàm random B tính tổng các số có giá trị bằng 150
Câu 2:
uses crt;
var a:array[1..300]of integer;
i,n,t:integer;
begin
clrscr;
randomize;
cin>>n;
for i:=1 to n do a[i]:=random(500);
t:=0;
for i:=1 to n do if a[i]=150 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính tổng S=1+2+..+n (bằng lệnh while) Giúp mình với đang cần gấp :
bài 1 :viết chtrinh tạo 1 mảng kí tự, sau đó in ra màn hình
bài 2 : viết chtrinh khai báo mẫu số nguyên, nhập N phần tử, tạo 1 mảng số nguyên gồm N phtử, in ra màn hình
mình cảm ơn ạ
Câu 1:
uses crt;
var st:array[1..100]of char;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i]);
for i:=1 to n do write(st[i]:4);
readln;
end.
Câu 2:
uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
Viết chương trình nhập từ bàn phím dãy số nguyên gồm n phần tử. Xuất ra màn hình dãy số vừa nhập Làm đầy đủ giúp mình với ạ
Uses crt;
var i,n: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
Program Hoc24;
var a: array[1..32000] of integer;
d,i,n,x: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
write('Nhap so can tim: '); readln(x);
d:=0;
for i:=1 to n do if a[i]=x then d:=d+1;
if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i,x,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so can tim: '); readln(x);
kt:=0;
for i:=1 to n do
if a[i]=x then kt:=1;
if kt=0 then writeln(x,' khong co trong day')
else writeln(x,' co trong day');
readln;
end.
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b) dãy có bao nhiêu số âm tính tổng các số âm đó . GIÚP MÌNH ĐIIII
n = int(input("Nhap so phan tu cua day: "))
a = []
for i in range(n):
a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))
tong = 0
for elem in a:
tong += elem
print("Tong cua day la: ", tong)
Để đếm số lượng số âm trong dãy và tính tổng các số âm đó, ta có thể sử dụng một biến đếm để đếm số lượng số âm và một biến tổng để cộng dồn các số âm. Ví dụ:n = int(input("Nhap so phan tu cua day: "))
a = []
for i in range(n):
a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))
so_luong_am = 0
tong_am = 0
for elem in a:
if elem < 0:
so_luong_am += 1
tong_am += elem
print("So luong so am trong day la: ", so_luong_am)
print("Tong cac so am trong day la: ", tong_am)
ai làm giúp mik vs ạ mình sắp thi r
Câu 1: Chọn khai báo hợp lệ:
A. Var a, b: array[1 .. n] of real; B. Var a, b: array[1 : n] of integer;
C. Var a, b: array[1 .. 100] of real; D. Var a, b: array[1 … 100] of real;
Câu 2: Thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình?
A. Không thực hiện được vì giá trị cuối không phải là số nguyên.
B. Giá trị biến đếm.
C. Viết số 1 rồi viết số 3.5
D. Chỉ viết số 3.5 mà thôi
Câu 3: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); lệnh Write(‘A’) được thực
hiện bao nhiêu lần (bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 1 lần C. 2 lần D. 12 lần
Câu 4: Sau khi thực hiện lệnh if (45 mod 3) = 0 then x:=x+1; thì giá trị của x bằng
bao nhiêu, nếu trước đó giá trị của x bằng 5?
A. 5 B. 45 C. 3 D. 6
Câu 5: Hãy cho biết đâu là phần khai báo biến mảng A gồm 20 phần tử thuộc kiểu
dữ liệu số thực?
A. var A: array[20..1] of integer; B. var A: array[20..1] of real;
C. var A: array[1..20] of integer; D. var A: array[1..20] of real;
Câu 6: Chương trình sau đây cho kết quả gì?
x:=1;
while x < 10 do writeln(x);
x:= x + 1;
A. In ra các số từ 1 đến 9; B. In ra vô hạn lần số 1
C. In ra các số từ 1 đến 10; D. Bị lỗi khi dịch chương trình
Câu 7: Lệnh lặp For .. do để in chữ O?
A. For i:=1.5 to 10.5 do writeln(‘O’); B. For i:=1 to 10 do writeln(‘O’);
C. For i:=100 to 1 do writeln(‘O’); D. For i:=1 to 10 do; writeln(‘O’;
Câu 8: Câu lệnh nhập cho phần tử thứ 15 của biến mảng A?
A. Readln(A[15]); B. Readln(A[k]);
C. Readln(A[i]); D. Readln(A15);
Câu 9: Theo quy ước đặt tên của ngôn ngữ Pascal, tên nào sau đây hợp lệ?
A. too_hot B. See you C. 8a D. Lop.8a
Câu 10: Khi dùng lệnh writeln(3+4*5); kết quả hiển thị trên màn hình là gì?
A. 3 B. 4 C. 35 D. 23
Câu 11: Để xóa màn hình, Pascal sử dụng lệnh:
A. Read B. Clrscr C. Delay D. Write
Câu 12: Lệnh xuất dữ liệu trong Pascal là lệnh nào?
A. read/readln B. begin C. end. D. Write/writeln
Câu 13: Giá trị nào sau đây thuộc kiểu Integer?
A. 15 mod 7 B. 2000*2000 C. 15/2-3 D. 8/2
Câu 14: Lệnh gán trong Pascal được viết như thế nào?
A. => B. >= C. := D. #
Câu 15: Trong Pascal, biến a biểu diễn điểm trung bình môn Tin học của một học
sinh, theo em biến a thuộc kiểu dữ liệu nào?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu boolean D. Kiểu kí tự
Câu 16: Ban đầu n có giá trị bằng 7. Sau khi thự hiện lệnh n := 2+ n*3; thì giá trị của
n bằng bao nhiêu?
A. 3 B. 2 C. 23 D. 27
Câu 17: Khi dùng lệnh writeln(4+2*3); kết quả hiển thị trên màn hình là gì?
A. 18 B. 24 C. 8 D. 10
Câu 18: Để xóa màn hình, Pascal sử dụng lệnh:
A. Read B. Write C. Delay D. Clrscr
Câu 19: Lệnh nhập dữ liệu vào từ bàn phím trong Pascal là lệnh nào?
A. read/readln B. begin C. end. D. Write/writeln
Câu 20: Giá trị nào sau đây thuộc kiểu Real?
A. 15 mod 7 B. 20*2 C. 15/2-3 D. 8*2
Câu 21: Lệnh gán trong Pascal được viết như thế nào?
A. => B. >= C. := D. #
Câu 22: Trong Pascal, biến a biểu diễn số cây trồng được của lớp 8a, theo em biến a
thuộc kiểu dữ liệu nào?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu boolean D. Kiểu kí tự
Câu 23: Ban đầu n có giá trị bằng 4. Sau khi thự hiện lệnh n := 2+ n*3; thì giá trị của
n bằng bao nhiêu?
A. 3 B. 14 C. 6 D. 18
II. Tự luận
Câu 24. Viết các biểu thức sau bằng các ký hiệu trong ngôn ngữ Pascal.
a) x
y
8
74
b) 5xy 2 + 2y 2 – 8xy + 15 c) 4
2222aca
Câu 25. Hãy viết các câu lệnh, khai báo theo yêu cầu sau:
a) Khai báo mảng B gồm 100 phần tử thuộc kiểu dữ liệu số nguyên
b) Phần tử thứ 4 của mảng B được gán giá trị là 7.
c) Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số thực.
d) Nhập giá trị cho phần tử thứ 5 trong mảng diem.
III. Thực hành
Câu 26. Giải bài toán sau:
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Hỏi có bao nhiêu trâu đứng , trâu nằm , trâu già ?
................................................................................................................................................................................................................................................
Câu 27.Mảnh vườn hình vuông
Cho mảnh vườn hình vuông có độ dài cạnh là a (m). Em hãy viết chương trình
Pascal tính chu vi mảnh vườn hình vuông trên (độ dài a là số thực được nhập từ bàn
phím).
Câu 28. Khởi động phần mềm Free Pascal, viết chương trình hiển thị hai dòng lệnh
sau:
Xin chao cac ban
To la hoc sinh lop 8 truong THCS THỊ TRẤN
Câu 29. Khởi động phần mềm Free Pascal, viết chương trình tính và hiển thị giá trị
của biểu thức P = a + 2.y : 5 với a là hằng số có giá trị bằng 1, còn y là số nguyên
được nhập vào từ bàn phím.
Câu 30. Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được
nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả.
Câu 31. Dùng lệnh For-do viết chương trình Pascal in ra màn hình các số từ 1 đến
20.
Câu 32. Hãy viết chương trình Pascal nhập chiều cao của hai bạn Quân và Anh, in ra
màn hình kết quả so sánh chiều cao của hai bạn. Chẳng hạn “Bạn Quân cao hơn” hay
“Bạn Anh cao hơn”.
Câu 33. Viết chương trình Pacscal tính tổng của các số tự nhiên từ 1 đến 10.
(Sử dụng lệnh lặp For-do).
Tách ra mà hỏi chứ hỏi cả đống ko ai giải giùm đâu em
